home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / biz / cloan / AExplor_Update.lha / AExplorer_Update / Install < prev    next >
Text File  |  1997-12-23  |  3KB  |  83 lines
  1. ; $VER: InstallAExplorer_Update 1.1
  2. ; Cloanto Amiga Explorer Update Installer Script
  3. ; Copyright © 1996, 1997 Cloanto Italia srl
  4. ; Cloanto is a registered trademark of Cloanto Italia srl
  5. ; "Installer and Installer project icon Copyright © 1991-1993 Commodore-Amiga, Inc. All Rights Reserved
  6. ;  Reproduced and distributed under license from Commodore"
  7. ; New installer icon design Copyright © 1994 Cloanto Italia srl
  8.  
  9. (set #which-dir
  10.     "Please indicate the directory where Amiga Explorer is installed:")
  11.  
  12. (set #which-dir-help
  13.     (cat "\nThis program updates the \"AExplorer\" program file."
  14.     "\n\nPlease specify the full path of the installed Amiga "
  15.     "Explorer software, including the final \"AExplorer\" directory name "
  16.     "(or other, if a different drawer name was used).\n\n"
  17.     @askdir-help))
  18.  
  19. (set #message-aexplorernotok
  20.     "\nThis update was not designed for the selected Amiga Explorer program file. It will not be updated.")
  21.  
  22. (set #error-aexplorer
  23.     "\nAmiga Explorer program file could not be found. It will not be updated.")
  24.  
  25. (set #busy-aexplorer
  26.     "Updating Amiga Explorer program file.")
  27.  
  28. (set #busy-icon
  29.     "Updating Amiga Explorer Workbench icon (ToolTypes).")
  30.  
  31. (if (= (getassign "AF_Disk" "av") "") (set aexplorer_dest "") (set aexplorer_dest (getassign "AF_Disk" "av")))
  32. (if (AND (<> (getdevice aexplorer_dest)(getdevice "RAM:"))(< (getdiskspace aexplorer_dest) 2048)) (set aexplorer_dest ""))
  33. (if (= aexplorer_dest "") (set aexplorer_dest @default-dest))
  34.  
  35. (set aexplorer_dest (askdir
  36.     (prompt #which-dir)
  37.     (help #which-dir-help)
  38.     (default aexplorer_dest)
  39.     (newpath)
  40. ))
  41.  
  42. (set target1 (tackon aexplorer_dest "AExplorer"))
  43. (if (<> (exists target1) 1) (if (= (exists target1) 2) (set aexplorer_dest target1)))
  44. (set @default-dest aexplorer_dest)
  45.  
  46. (set target1 (tackon aexplorer_dest "AExplorer"))
  47. (if (<> (exists target1) 1) (message #error-aexplorer) (
  48.     (if (AND (AND (<> (getsize target1) 19248) (<> (getsize target1) 20624)) (<> (getsize target1) 27744)) (message #message-aexplorernotok) (
  49.  
  50.         (if (= (getsize target1) 19248) (
  51.             (working #busy-aexplorer)
  52.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE10-11a.pch \"" target1 "\""))
  53.             (run runstring)
  54.         ))
  55.  
  56.         (if (= (getsize target1) 20624) (
  57.             (working #busy-aexplorer)
  58.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE11-11c.pch \"" target1 "\""))
  59.             (run runstring)
  60.  
  61.         (working #busy-icon)
  62.         (copyfiles
  63.             (source "icons/AExplorer.info")
  64.             (dest (pathonly target1))
  65.             (optional "nofail" "force")
  66.             (nogauge)
  67.             )
  68.         ))
  69.  
  70.  
  71.         (if (= (getsize target1) 27744) (
  72.             (working #busy-aexplorer)
  73.             (set runstring (cat "spatch >NIL: <NIL: \"-o" target1 "\" -pAE11-11d.pch \"" target1 "\""))
  74.             (run runstring)
  75.         ))
  76.  
  77.  
  78.         (exit)
  79.     ))
  80. ))
  81.  
  82. (exit (quiet))
  83.